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ATTENTION 

This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

The DECUS Program Library is a clearing house only; it does not generate or test programs. No 
warranty, express or implied, is made by the contributor. Digital Equipment Computer Users 
Society or Digital Equipment Corporation as to the accuracy or functioning of the program or 
related material, and no responsibility is assumed by these parties in connection therewith. 
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PERPETUAL CALENDAR (BASIC VERSION) 


DECUS Program Library Write-up 


DECUS NO. 8-463 


Very often a small computer installation will have an open house. This program is ideal for 
uc purposes. It will provide a fine demonstration for people who know little about 

HhZ LTt' ‘ SPe T emplo >' ed in the Pogrom Is the Time Waster (Ins. 110-120), 

It is used to increase the effectiveness of the demonstration. The computer will first type out 

an incorrect answer and then after a delay of about 4 seconds, will type out the rial* one 
The audience is usually very impressed by this technique. But, so as not to add to the many 
misconceptions about computers, the operator should explain what actually happened. Y 

The Perpetual Calendar can also be useful to the businessman for finding the day of the week 
CoIgr U „en n ce.* PP '’ "" *•*»*'• h commonly called 


OPERATING INSTRUCTIONS 


1. Load ASCII source tape 

2. Type RUN 

3. After question mark type - month, day, century, year 
Note: Months correspond to the following numbers: 


JAN.- 11 
FEB. - 12 


MAR. - 1 
APR. - 2 
MAY - 3 


JUN. - 4 


JUL. - 5 
AUG. - 6 
SEP. - 7 
OCT. - 8 
NOV. - 9 
DEC. - 10 


4. Program will loop back to beginning until manually stopped. 


,*.!f F ? d . J - Gtuenberger and George Jaffray, Problems for Computer Solution, lohn 
Wiley & Sons, Inc., N. Y., 1965, p. 255 ---— L 













LIST 

10 INPUT M»K»C>I) 

15 PRINT 

20 LET F=2»6*M-0«2 
30 LET J= INT(F > 

40 LET F=J+K+D+INT(D/4)+INT(C/4)-2*C 
60 LET N = N-7 
R0 IF N> 6 THEN 6 0 
85 IF N = 0 THEN 100 

90 IF N=1 THEN 140 

91 IF N = 2 THEN 160 

92 IF N =3 THEN 180 

93 ip N = 4 THEN 200 

94 IF N= 5 THEN 220 

95 IF N=6 THEN 240 

100 FRINT "THE DAY IS V'EDNESDAY" 

110 FOR 1=1 TO 1000 


120 NEXT I 
130 PRINT " 

135 GO TO 999 
140 PRINT "THE 


150 GO 
160 PR 
170 GO 
180 PR 
190 GO 
200 PR 
210 GO 
220 PR 
230 GO 
240 PR 
999 GO 
1000 EN 


TO 999 
NT "THE 
TO 999 
NT "THE 
TO 999 
NT "THE 
TO 999 
NT "THE 
TO 999 
:nt "THE 
TO 10 


... OOPS SUNDAY" 
DAY IS MONDAY" 

DAY IS TUESDAY" 
DAY IS WEDNESDAY" 
DAY IS THURSDAY" 
DAY IS FRIDAY" 

DAY IS SATURDAY" 


READY 


PUN 

? 5 * 26 * 19*71 

THE DAY IS MONDAY 
? 10*25* 19*71 

THE DAY IS SATURDAY 
? 5*25*19*71 

THE DAY IS WEDNESDAY 
.... OOPS SUNDAY 

? 

STOP 
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